home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / multlang.zip / MMSG.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-14  |  1KB  |  63 lines
  1. unit Mmsg;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Mbuttons, Mcombbox, MultLang;
  8.  
  9. type
  10.   TMMsgDlg = class(TForm)
  11.     Label1: TLabel;
  12.     MultLang1: TMultLang;
  13.     MButtons1: TMButtons;
  14.     Button1: TButton;
  15.     Label2: TLabel;
  16.     Button2: TButton;
  17.     Button3: TButton;
  18.     procedure Button1Click(Sender: TObject);
  19.     procedure Button2Click(Sender: TObject);
  20.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  21.     procedure Button3Click(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. var
  29.   MMsgDlg: TMMsgDlg;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TMMsgDlg.Button1Click(Sender: TObject);
  36. begin
  37.   MButtons1.Translate:=True;
  38.   ShowMessage(MultLang1.GetString('Test1'));
  39.   MButtons1.Translate:=False;
  40. end;
  41.  
  42. procedure TMMsgDlg.Button2Click(Sender: TObject);
  43. begin
  44.   MButtons1.Translate:=True;
  45.   MessageDlg(MultLang1.GetString('Test2'), mtConfirmation, mbYesNoCancel, 0);
  46.   MButtons1.Translate:=False;
  47. end;
  48.  
  49. procedure TMMsgDlg.FormClose(Sender: TObject; var Action: TCloseAction);
  50. begin
  51.   Action:=caFree;
  52. end;
  53.  
  54. procedure TMMsgDlg.Button3Click(Sender: TObject);
  55. var JunkString:String;
  56. begin
  57.   MButtons1.Translate:=True;
  58.   InputQuery(MultLang1.GetString('InBoxTitle'), MultLang1.GetString('InBoxPrompt'), JunkString);
  59.   MButtons1.Translate:=False;
  60. end;
  61.  
  62. end.
  63.